home *** CD-ROM | disk | FTP | other *** search
/ Mac Format 1995 June / MacFormat 25.iso / Shareware City / Developers / DSKA 1.4 Folder / dsk_twid.inc next >
Text File  |  1994-08-07  |  17KB  |  289 lines
  1. ;-----------------------------------------------------------;
  2. ; DSK_TWID.ASM                                              ;
  3. ; (C) 1992-93                                               ;
  4. ; Texas Instruments Inc.                                    ;
  5. ; By: Keith Larson                                          ;
  6. ;     TMS320Cxx DSP Applications                            ;
  7. ;                                                           ;
  8. ; This table contains a sine/cosine lookup table stored     ;
  9. ; in bit-reversed addressing order.                         ;
  10. ;-----------------------------------------------------------;
  11.    ;-----------------------------------------------;
  12.    ;      Complex FFT Data array allocation        ;
  13.    ;-----------------------------------------------;
  14. _D_base         .space  0x0010     ; 2*FFT_S word FFT data array
  15. ;_D_base+1                          ;
  16.                 .space  0x1FF0     ;
  17.    ;-----------------------------------------------;
  18.    ;      Bit reversed Twiddle lookup Table        ;
  19.    ;-----------------------------------------------;
  20. _T_base:
  21.    .word    32767 ;Normaly 0! Used for raised   
  22. ; _T_base+1
  23.    .word   -32768 ;cosine window from this table
  24.    .word   -32768 ; -90.00                        -1.000000 
  25.    .word        0 ;      1  000000010  000000000  -0.000000 
  26.    .word   -23170 ;-135.00                        -0.707107 
  27.    .word   -23170 ;      2  000000100  100000000  -0.707107 
  28.    .word   -23170 ; -45.00                        -0.707107 
  29.    .word    23170 ;      3  000000110  100000000  +0.707107 
  30.    .word   -12539 ;-157.50                        -0.382683 
  31.    .word   -30273 ;      4  000001000  010000000  -0.923880 
  32.    .word   -30273 ; -67.50                        -0.923880 
  33.    .word    12539 ;      5  000001010  010000000  +0.382683 
  34.    .word   -30273 ;-112.50                        -0.923880 
  35.    .word   -12539 ;      6  000001100  110000000  -0.382683 
  36.    .word   -12539 ; -22.50                        -0.382683 
  37.    .word    30273 ;      7  000001110  110000000  +0.923880 
  38.    .word    -6392 ;-168.75                        -0.195090 
  39.    .word   -32138 ;      8  000010000  001000000  -0.980785 
  40.    .word   -32138 ; -78.75                        -0.980785 
  41.    .word     6392 ;      9  000010010  001000000  +0.195090 
  42.    .word   -27245 ;-123.75                        -0.831470 
  43.    .word   -18204 ;     10  000010100  101000000  -0.555570 
  44.    .word   -18204 ; -33.75                        -0.555570 
  45.    .word    27245 ;     11  000010110  101000000  +0.831470 
  46.    .word   -18204 ;-146.25                        -0.555570 
  47.    .word   -27245 ;     12  000011000  011000000  -0.831470 
  48.    .word   -27245 ; -56.25                        -0.831470 
  49.    .word    18204 ;     13  000011010  011000000  +0.555570 
  50.    .word   -32138 ;-101.25                        -0.980785 
  51.    .word    -6392 ;     14  000011100  111000000  -0.195090 
  52.    .word    -6392 ; -11.25                        -0.195090 
  53.    .word    32138 ;     15  000011110  111000000  +0.980785 
  54.    .word    -3211 ;-174.38                        -0.098017 
  55.    .word   -32610 ;     16  000100000  000100000  -0.995185 
  56.    .word   -32610 ; -84.38                        -0.995185 
  57.    .word     3211 ;     17  000100010  000100000  +0.098017 
  58.    .word   -25330 ;-129.38                        -0.773010 
  59.    .word   -20787 ;     18  000100100  100100000  -0.634393 
  60.    .word   -20787 ; -39.38                        -0.634393 
  61.    .word    25330 ;     19  000100110  100100000  +0.773010 
  62.    .word   -15446 ;-151.88                        -0.471397 
  63.    .word   -28898 ;     20  000101000  010100000  -0.881921 
  64.    .word   -28898 ; -61.88                        -0.881921 
  65.    .word    15446 ;     21  000101010  010100000  +0.471397 
  66.    .word   -31357 ;-106.88                        -0.956940 
  67.    .word    -9512 ;     22  000101100  110100000  -0.290285 
  68.    .word    -9512 ; -16.88                        -0.290285 
  69.    .word    31357 ;     23  000101110  110100000  +0.956940 
  70.    .word    -9512 ;-163.13                        -0.290285 
  71.    .word   -31357 ;     24  000110000  001100000  -0.956940 
  72.    .word   -31357 ; -73.13                        -0.956940 
  73.    .word     9512 ;     25  000110010  001100000  +0.290285 
  74.    .word   -28898 ;-118.13                        -0.881921 
  75.    .word   -15446 ;     26  000110100  101100000  -0.471397 
  76.    .word   -15446 ; -28.13                        -0.471397 
  77.    .word    28898 ;     27  000110110  101100000  +0.881921 
  78.    .word   -20787 ;-140.63                        -0.634393 
  79.    .word   -25330 ;     28  000111000  011100000  -0.773010 
  80.    .word   -25330 ; -50.63                        -0.773010 
  81.    .word    20787 ;     29  000111010  011100000  +0.634393 
  82.    .word   -32610 ; -95.63                        -0.995185 
  83.    .word    -3211 ;     30  000111100  111100000  -0.098017 
  84.    .word    -3211 ;  -5.63                        -0.098017 
  85.    .word    32610 ;     31  000111110  111100000  +0.995185 
  86.    .word    -1607 ;-177.19                        -0.049068 
  87.    .word   -32728 ;     32  001000000  000010000  -0.998795 
  88.    .word   -32728 ; -87.19                        -0.998795 
  89.    .word     1607 ;     33  001000010  000010000  +0.049068 
  90.    .word   -24279 ;-132.19                        -0.740951 
  91.    .word   -22005 ;     34  001000100  100010000  -0.671559 
  92.    .word   -22005 ; -42.19                        -0.671559 
  93.    .word    24279 ;     35  001000110  100010000  +0.740951 
  94.    .word   -14010 ;-154.69                        -0.427555 
  95.    .word   -29621 ;     36  001001000  010010000  -0.903989 
  96.    .word   -29621 ; -64.69                        -0.903989 
  97.    .word    14010 ;     37  001001010  010010000  +0.427555 
  98.    .word   -30852 ;-109.69                        -0.941544 
  99.    .word   -11039 ;     38  001001100  110010000  -0.336890 
  100.    .word   -11039 ; -19.69                        -0.336890 
  101.    .word    30852 ;     39  001001110  110010000  +0.941544 
  102.    .word    -7961 ;-165.94                        -0.242980 
  103.    .word   -31785 ;     40  001010000  001010000  -0.970031 
  104.    .word   -31785 ; -75.94                        -0.970031 
  105.    .word     7961 ;     41  001010010  001010000  +0.242980 
  106.    .word   -28106 ;-120.94                        -0.857729 
  107.    .word   -16846 ;     42  001010100  101010000  -0.514103 
  108.    .word   -16846 ; -30.94                        -0.514103 
  109.    .word    28106 ;     43  001010110  101010000  +0.857729 
  110.    .word   -19519 ;-143.44                        -0.595699 
  111.    .word   -26319 ;     44  001011000  011010000  -0.803208 
  112.    .word   -26319 ; -53.44                        -0.803208 
  113.    .word    19519 ;     45  001011010  011010000  +0.595699 
  114.    .word   -32413 ; -98.44                        -0.989177 
  115.    .word    -4808 ;     46  001011100  111010000  -0.146730 
  116.    .word    -4808 ;  -8.44                        -0.146730 
  117.    .word    32413 ;     47  001011110  111010000  +0.989177 
  118.    .word    -4808 ;-171.56                        -0.146730 
  119.    .word   -32413 ;     48  001100000  000110000  -0.989177 
  120.    .word   -32413 ; -81.56                        -0.989177 
  121.    .word     4808 ;     49  001100010  000110000  +0.146730 
  122.    .word   -26319 ;-126.56                        -0.803208 
  123.    .word   -19519 ;     50  001100100  100110000  -0.595699 
  124.    .word   -19519 ; -36.56                        -0.595699 
  125.    .word    26319 ;     51  001100110  100110000  +0.803208 
  126.    .word   -16846 ;-149.06                        -0.514103 
  127.    .word   -28106 ;     52  001101000  010110000  -0.857729 
  128.    .word   -28106 ; -59.06                        -0.857729 
  129.    .word    16846 ;     53  001101010  010110000  +0.514103 
  130.    .word   -31785 ;-104.06                        -0.970031 
  131.    .word    -7961 ;     54  001101100  110110000  -0.242980 
  132.    .word    -7961 ; -14.06                        -0.242980 
  133.    .word    31785 ;     55  001101110  110110000  +0.970031 
  134.    .word   -11039 ;-160.31                        -0.336890 
  135.    .word   -30852 ;     56  001110000  001110000  -0.941544 
  136.    .word   -30852 ; -70.31                        -0.941544 
  137.    .word    11039 ;     57  001110010  001110000  +0.336890 
  138.    .word   -29621 ;-115.31                        -0.903989 
  139.    .word   -14010 ;     58  001110100  101110000  -0.427555 
  140.    .word   -14010 ; -25.31                        -0.427555 
  141.    .word    29621 ;     59  001110110  101110000  +0.903989 
  142.    .word   -22005 ;-137.81                        -0.671559 
  143.    .word   -24279 ;     60  001111000  011110000  -0.740951 
  144.    .word   -24279 ; -47.81                        -0.740951 
  145.    .word    22005 ;     61  001111010  011110000  +0.671559 
  146.    .word   -32728 ; -92.81                        -0.998795 
  147.    .word    -1607 ;     62  001111100  111110000  -0.049068 
  148.    .word    -1607 ;  -2.81                        -0.049068 
  149.    .word    32728 ;     63  001111110  111110000  +0.998795 
  150.    .word     -804 ;-178.59                        -0.024541 
  151.    .word   -32758 ;     64  010000000  000001000  -0.999699 
  152.    .word   -32758 ; -88.59                        -0.999699 
  153.    .word      804 ;     65  010000010  000001000  +0.024541 
  154.    .word   -23732 ;-133.59                        -0.724247 
  155.    .word   -22594 ;     66  010000100  100001000  -0.689541 
  156.    .word   -22594 ; -43.59                        -0.689541 
  157.    .word    23732 ;     67  010000110  100001000  +0.724247 
  158.    .word   -13278 ;-156.09                        -0.405241 
  159.    .word   -29956 ;     68  010001000  010001000  -0.914210 
  160.    .word   -29956 ; -66.09                        -0.914210 
  161.    .word    13278 ;     69  010001010  010001000  +0.405241 
  162.    .word   -30572 ;-111.09                        -0.932993 
  163.    .word   -11793 ;     70  010001100  110001000  -0.359895 
  164.    .word   -11793 ; -21.09                        -0.359895 
  165.    .word    30572 ;     71  010001110  110001000  +0.932993 
  166.    .word    -7179 ;-167.34                        -0.219101 
  167.    .word   -31971 ;     72  010010000  001001000  -0.975702 
  168.    .word   -31971 ; -77.34                        -0.975702 
  169.    .word     7179 ;     73  010010010  001001000  +0.219101 
  170.    .word   -27684 ;-122.34                        -0.844854 
  171.    .word   -17530 ;     74  010010100  101001000  -0.534998 
  172.    .word   -17530 ; -32.34                        -0.534998 
  173.    .word    27684 ;     75  010010110  101001000  +0.844854 
  174.    .word   -18868 ;-144.84                        -0.575808 
  175.    .word   -26790 ;     76  010011000  011001000  -0.817585 
  176.    .word   -26790 ; -54.84                        -0.817585 
  177.    .word    18868 ;     77  010011010  011001000  +0.575808 
  178.    .word   -32285 ; -99.84                        -0.985278 
  179.    .word    -5602 ;     78  010011100  111001000  -0.170962 
  180.    .word    -5602 ;  -9.84                        -0.170962 
  181.    .word    32285 ;     79  010011110  111001000  +0.985278 
  182.    .word    -4011 ;-172.97                        -0.122411 
  183.    .word   -32521 ;     80  010100000  000101000  -0.992480 
  184.    .word   -32521 ; -82.97                        -0.992480 
  185.    .word     4011 ;     81  010100010  000101000  +0.122411 
  186.    .word   -25832 ;-127.97                        -0.788346 
  187.    .word   -20159 ;     82  010100100  100101000  -0.615232 
  188.    .word   -20159 ; -37.97                        -0.615232 
  189.    .word    25832 ;     83  010100110  100101000  +0.788346 
  190.    .word   -16151 ;-150.47                        -0.492898 
  191.    .word   -28511 ;     84  010101000  010101000  -0.870087 
  192.    .word   -28511 ; -60.47                        -0.870087 
  193.    .word    16151 ;     85  010101010  010101000  +0.492898 
  194.    .word   -31581 ;-105.47                        -0.963776 
  195.    .word    -8739 ;     86  010101100  110101000  -0.266713 
  196.    .word    -8739 ; -15.47                        -0.266713 
  197.    .word    31581 ;     87  010101110  110101000  +0.963776 
  198.    .word   -10278 ;-161.72                        -0.313682 
  199.    .word   -31114 ;     88  010110000  001101000  -0.949528 
  200.    .word   -31114 ; -71.72                        -0.949528 
  201.    .word    10278 ;     89  010110010  001101000  +0.313682 
  202.    .word   -29269 ;-116.72                        -0.893224 
  203.    .word   -14732 ;     90  010110100  101101000  -0.449611 
  204.    .word   -14732 ; -26.72                        -0.449611 
  205.    .word    29269 ;     91  010110110  101101000  +0.893224 
  206.    .word   -21403 ;-139.22                        -0.653173 
  207.    .word   -24812 ;     92  010111000  011101000  -0.757209 
  208.    .word   -24812 ; -49.22                        -0.757209 
  209.    .word    21403 ;     93  010111010  011101000  +0.653173 
  210.    .word   -32679 ; -94.22                        -0.997290 
  211.    .word    -2410 ;     94  010111100  111101000  -0.073565 
  212.    .word    -2410 ;  -4.22                        -0.073565 
  213.    .word    32679 ;     95  010111110  111101000  +0.997290 
  214.    .word    -2410 ;-175.78                        -0.073565 
  215.    .word   -32679 ;     96  011000000  000011000  -0.997290 
  216.    .word   -32679 ; -85.78                        -0.997290 
  217.    .word     2410 ;     97  011000010  000011000  +0.073565 
  218.    .word   -24812 ;-130.78                        -0.757209 
  219.    .word   -21403 ;     98  011000100  100011000  -0.653173 
  220.    .word   -21403 ; -40.78                        -0.653173 
  221.    .word    24812 ;     99  011000110  100011000  +0.757209 
  222.    .word   -14732 ;-153.28                        -0.449611 
  223.    .word   -29269 ;    100  011001000  010011000  -0.893224 
  224.    .word   -29269 ; -63.28                        -0.893224 
  225.    .word    14732 ;    101  011001010  010011000  +0.449611 
  226.    .word   -31114 ;-108.28                        -0.949528 
  227.    .word   -10278 ;    102  011001100  110011000  -0.313682 
  228.    .word   -10278 ; -18.28                        -0.313682 
  229.    .word    31114 ;    103  011001110  110011000  +0.949528 
  230.    .word    -8739 ;-164.53                        -0.266713 
  231.    .word   -31581 ;    104  011010000  001011000  -0.963776 
  232.    .word   -31581 ; -74.53                        -0.963776 
  233.    .word     8739 ;    105  011010010  001011000  +0.266713 
  234.    .word   -28511 ;-119.53                        -0.870087 
  235.    .word   -16151 ;    106  011010100  101011000  -0.492898 
  236.    .word   -16151 ; -29.53                        -0.492898 
  237.    .word    28511 ;    107  011010110  101011000  +0.870087 
  238.    .word   -20159 ;-142.03                        -0.615232 
  239.    .word   -25832 ;    108  011011000  011011000  -0.788346 
  240.    .word   -25832 ; -52.03                        -0.788346 
  241.    .word    20159 ;    109  011011010  011011000  +0.615232 
  242.    .word   -32521 ; -97.03                        -0.992480 
  243.    .word    -4011 ;    110  011011100  111011000  -0.122411 
  244.    .word    -4011 ;  -7.03                        -0.122411 
  245.    .word    32521 ;    111  011011110  111011000  +0.992480 
  246.    .word    -5602 ;-170.16                        -0.170962 
  247.    .word   -32285 ;    112  011100000  000111000  -0.985278 
  248.    .word   -32285 ; -80.16                        -0.985278 
  249.    .word     5602 ;    113  011100010  000111000  +0.170962 
  250.    .word   -26790 ;-125.16                        -0.817585 
  251.    .word   -18868 ;    114  011100100  100111000  -0.575808 
  252.    .word   -18868 ; -35.16                        -0.575808 
  253.    .word    26790 ;    115  011100110  100111000  +0.817585 
  254.    .word   -17530 ;-147.66                        -0.534998 
  255.    .word   -27684 ;    116  011101000  010111000  -0.844854 
  256.    .word   -27684 ; -57.66                        -0.844854 
  257.    .word    17530 ;    117  011101010  010111000  +0.534998 
  258.    .word   -31971 ;-102.66                        -0.975702 
  259.    .word    -7179 ;    118  011101100  110111000  -0.219101 
  260.    .word    -7179 ; -12.66                        -0.219101 
  261.    .word    31971 ;    119  011101110  110111000  +0.975702 
  262.    .word   -11793 ;-158.91                        -0.359895 
  263.    .word   -30572 ;    120  011110000  001111000  -0.932993 
  264.    .word   -30572 ; -68.91                        -0.932993 
  265.    .word    11793 ;    121  011110010  001111000  +0.359895 
  266.    .word   -29956 ;-113.91                        -0.914210 
  267.    .word   -13278 ;    122  011110100  101111000  -0.405241 
  268.    .word   -13278 ; -23.91                        -0.405241 
  269.    .word    29956 ;    123  011110110  101111000  +0.914210 
  270.    .word   -22594 ;-136.41                        -0.689541 
  271.    .word   -23732 ;    124  011111000  011111000  -0.724247 
  272.    .word   -23732 ; -46.41                        -0.724247 
  273.    .word    22594 ;    125  011111010  011111000  +0.689541 
  274.    .word   -32758 ; -91.41                        -0.999699 
  275.    .word     -804 ;    126  011111100  111111000  -0.024541 
  276.    .word     -804 ;  -1.41                        -0.024541 
  277.    .word    32758 ;    127  011111110  111111000  +0.999699 
  278.    ;-----------------------------------------------;
  279.    ;  Input Buffer allocation and initialization   ;
  280.    ;-----------------------------------------------;
  281. ; 16*FFT_S        .set   01000h
  282. _B_base:
  283.    .space  16*FFT_S
  284.    ;-----------------------------------------------;
  285.    ;  Hanning (raised cosine) from twiddle table   ;
  286.    ;  No window table is initialized !!            ;
  287.    ;-----------------------------------------------;
  288.  
  289.